home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / interp / perl5.005.tar.gz / perl5.005.tar / perl5.005 / t / op / exec.t < prev    next >
Text File  |  1998-05-28  |  909b  |  31 lines
  1. #!./perl
  2.  
  3. # $RCSfile: exec.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:49 $
  4.  
  5. $| = 1;                # flush stdout
  6.  
  7. if ($^O eq 'MSWin32') {
  8.     print "# exec is unsupported on Win32\n";
  9.     # XXX the system tests could be written to use ./perl and so work on Win32
  10.     print "1..0\n";
  11.     exit(0);
  12. }
  13.  
  14. print "1..8\n";
  15.  
  16. print "not ok 1\n" if system "echo ok \\1";    # shell interpreted
  17. print "not ok 2\n" if system "echo ok 2";    # split and directly called
  18. print "not ok 3\n" if system "echo", "ok", "3"; # directly called
  19.  
  20. # these should probably be rewritten to match the examples in perlfunc.pod
  21. if (system "true") {print "not ok 4\n";} else {print "ok 4\n";}
  22.  
  23. if ((system "/bin/sh -c 'exit 1'") != 256) { print "not "; }
  24. print "ok 5\n";
  25.  
  26. if ((system "lskdfj") == 255 << 8) {print "ok 6\n";} else {print "not ok 6\n";}
  27.  
  28. unless (exec "lskdjfalksdjfdjfkls") {print "ok 7\n";} else {print "not ok 7\n";}
  29.  
  30. exec "echo","ok","8";
  31.